home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Utilities / Programming / EnterAct 3.7.3 / Drag_on Modules / hAWK programs / $SortLinesDict < prev    next >
Encoding:
Text File  |  1994-09-26  |  177 b   |  11 lines  |  [TEXT/KEEN]
  1. # $SortLinesDict - print lines dictionary-sorted.
  2.  
  3.     {lines[++n] = $0}
  4.  
  5. END {
  6.     max = sort(lines,ind,"d");#dictionary order
  7.     for (i = 1; i <= max; ++i)
  8.         print lines[ind[i]];
  9.     }
  10.  
  11.